00100	CSENT(U,R)← IF NULL U THEN (IF NULL R THEN 1 ELSE 0)
00200		ELSE IF CAR U EQ 'A THEN CMOAN(REVERSE R,NIL)*
00300		CGROAN(CDR U,NIL)+CSENT(CDR U,CAR U CONS R)
00400		ELSE IF CAR U EQ 'S THEN CGROAN(REVERSE R,NIL)*
00500		CSENTMOAN(CDR U,NIL)+CSENT(CDR U,CAR U CONS R)
00600		ELSE CSENT(CDR U,CAR U CONS R);
00700	
00800	CSENTMOAN(U,R) ← IF NULL U THEN CMOAN(REVERSE R,NIL)
00900		ELSE CSENT(REVERSE R,NIL)*CMOAN(U,NIL)+
01000		CSENTMOAN(CDR U,CAR U CONS R);
01100	
01200	CMOAN(U,R) ← IF NULL U THEN (IF NULL R THEN 1 ELSE 0)
01300		ELSE IF CAR U EQ 'V THEN CSENT(REVERSE R,NIL)*
01400		CSENT(CDR U,NIL)+CMOAN(CDR U,CAR U CONS R)
01500		ELSE IF CAR U EQ 'P THEN CGROAN(REVERSE R,NIL)*
01600		CMOANGROAN(CDR U,NIL)+CMOAN(CDR U,CAR U CONS R)
01700		ELSE CMOAN(CDR U,CAR U CONS R);
01800	
01900	CMOANGROAN(U,R) ← IF NULL U THEN CMOAN(REVERSE R,NIL)
02000		ELSE CMOAN(REVERSE R,NIL)*CGROAN(U,NIL)+
02100		CMOANGROAN(CDR U,CAR U CONS R);
02200	
02300	CGROAN(U,R) ← IF NULL U THEN (IF NULL R THEN 1 ELSE 0)
02400		ELSE IF CAR U EQ 'P THEN CMOAN(REVERSE R,NIL)*
02500		CGROAN(CDR U,NIL)+CGROAN(CDR U,CAR U CONS R)
02600		ELSE IF CAR U EQ 'F THEN CGROAN(REVERSE R,NIL)*
02700		CSENTGROAN(CDR U,NIL)+CGROAN(CDR U,CAR U CONS R)
02800		ELSE CGROAN(CDR U,CAR U CONS R);
02900	
03000	CSENTGROAN(U,R) ← IF NULL U THEN CSENT(REVERSE R,NIL)
03100		ELSE CSENT(REVERSE R,NIL)*CGROAN(U,NIL)+
03200		CSENTGROAN(CDR U,CAR U CONS R);
03300	
03400	S0 ← '(F V A V P A S V P P V V P S P V P V P V V P S A V P S
03500	 A P V A P V P P V P A S P V A V) ;
03600	
03700	RACE ←'(P V A V) ;